home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
util
/
misc
/
browseri.lha
/
BrowserII_v3_09
/
S
/
LhArcDir_P.C
< prev
next >
Wrap
AmigaDOS Script File
|
1994-10-18
|
458b
|
29 lines
.key Dir/A,Destination,Pat/K
.bra {
.ket }
.def Pat="#?"
Set CurrentDir `CD`
IF "{Destination}" EQ ""
Set Dest $CurrentDir
Else
Set Dest {Destination}
EndIf
CD "{Dir}"
CD /
Set ArcDir `BaseName "{Dir}"`
Set ArcPathName "`TackOn "$Dest" "$ArcDir"`"
Lha -a -r -x a "$ArcPathName" "$ArcDir/{Pat}"
IF $RC GT 0
Echo "Error during compression of {Dir}."
Ask "Press RETURN..."
EndIf
CD $CurrentDir
UnSet Dest
UnSet ArcDir
UnSet ArcPathName
UnSet CurrentDir